home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 June
/
Ahoy_Magazine_88-06_1988_Double_L.d64
/
Score Keeper
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
436b
|
15 lines
0 print"[147]"tab(13)"score keeper"
1 rem ==================================
2 rem commodares problem #49-2 :
3 rem score keeper
4 rem solution by
5 rem craig ewert
6 rem ==================================
11 goto 20
12 for k=0 to 4: if sc>hs(k) then 14
13 next: return
14 input"initials";in$
15 for i=5 to k+1 step -1:hs(i)=hs(i-1):hi$(i)=hi$(i-1):next:hi$(k)=in$:hs(k)=sc
16 print"[147]": for i=0 to 4:print i+1,hs(i),hi$(i): next: return
20 input"score";sc: gosub 12: goto 20: end